#Figure A3

load("Figure A3.Rdata")

p<-ggplot(data=personnel, aes(x=Year,y=Number, color=variable))+
  geom_line()+
  facet_wrap(.~country_accorddate, labeller = labeller(country_accorddate = label_wrap_gen(19)))+
  scale_color_discrete(name = "UN Personnel Type")+
  theme(text=element_text(size=14))+
  theme_bw()

p

pdf(file="FigureA3.pdf")
p
dev.off()

rm(personnel, p)
